#
# programas 
#

## limpa ambiente para iniciar análises
rm(list = ls())

## indica o diretório dos arquivos 
setwd("C:\\Users\\naras\\Desktop\\grotões")   #<- alterar o caminho

## instala pacote e importa fontes para gráficos 
#install.packages("extrafont", dependencies = TRUE)
#library(extrafont)
#font_import()

## carrega pacotes
library(dplyr)
library(stringr)
library(ggplot2)
library(extrafont)
loadfonts(device = "win")

## análise do número de palavras

##2012

## carrega banco
progs12 <- read.delim("progs2012.csv", header = TRUE, sep = ";", dec = ",")

## plota gráfico 1
ggplot(progs12, aes(x=progs12$party, y=progs12$words))+ 
geom_point() + labs(x = " ", y = "No. of words") +
  theme(text = element_text(size = 11, family = "Cambria"))


## calcula decís para tabela 2
quantile(progs12$words, seq(0, 1, length = 11))

##2016##

## carrega banco
progs16 <- read.delim("progs2016.csv", header = TRUE, sep = ";", dec = ",")

## plota gráfico 2
ggplot(progs16, aes(x=progs16$party, y=progs16$words))+ 
  geom_point() + labs(x = " ", y = "No. of words") +
  theme(text = element_text(size = 11, family = "Cambria"))

## calcula decís para tabela 2
quantile(progs16$words, seq(0, 1, length = 11))

## figura 1

## filtra caso e plota gráfico de Uiramutã
uiramuta <- filter(progs12, city == "Uiramutã")
uiramuta$thetacity <- as.numeric(as.character(uiramuta$thetacity[order(uiramuta$thetacity)])) 

ggplot(uiramuta, aes(thetacity, party)) +
  geom_point() +
  labs(x = " ", y = " ") +
  ggtitle("Uiramutã") +
  xlim(-2,2) +
  theme(text = element_text(size = 11, family = "Cambria")) +
  theme(plot.title = element_text(size = 11, family = "Cambria"))

## filtra caso e plota gráfico de Satubinha
satubinha <- filter(progs12, city == "Satubinha")
satubinha$thetacity <- as.numeric(as.character(satubinha$thetacity[order(satubinha$thetacity)])) 

ggplot(satubinha, aes(thetacity, party)) +
  geom_point() +
  labs(x = " ", y = " ") +
  ggtitle("Satubinha") +
  xlim(-2,2) +
  theme(text = element_text(size = 11, family = "Cambria")) +
  theme(plot.title = element_text(size = 11, family = "Cambria"))

## filtra caso e plota gráfico de Maraã
maraa <- filter(progs12, city == "Maraã")
maraa$thetacity <- as.numeric(as.character(maraa$thetacity[order(maraa$thetacity)])) 

ggplot(maraa, aes(thetacity, party)) +
  geom_point() +
  labs(x = " ", y = " ") +
  ggtitle("Maraã") +
  xlim(-2,2) +
  theme(text = element_text(size = 11, family = "Cambria")) +
  theme(plot.title = element_text(size = 11, family = "Cambria"))

## filtra caso e plota gráfico de Portel
portel <- filter(progs12, city == "Portel")
portel$thetacity <- as.numeric(as.character(portel$thetacity[order(portel$thetacity)])) 

ggplot(portel, aes(thetacity, party)) +
  geom_point() +
  labs(x = " ", y = " ") +
  ggtitle("Portel") +
  xlim(-2,2) +
  theme(text = element_text(size = 11, family = "Cambria")) +
  theme(plot.title = element_text(size = 11, family = "Cambria"))

## Figura 1 é composta pelos 4 gráficos acima gerados

## carrega e prepara banco para gráficos 3 e 4
grotoes <- read.delim("grotoes.csv", header = TRUE, sep = ";", dec = ",")
grotoes$dist <- as.numeric(as.character(grotoes$dist))
grotoes$year <- as.character(grotoes$year)
grotoes$var <- as.numeric(as.character(grotoes$var))

## plota gráfico 3
ggplot(grotoes, aes(dist, fill = year , colour = year)) + 
  geom_density(alpha = 0.4) +
  labs(x = " ") +
  xlim(0,4) +
  theme(text = element_text(size = 11, family = "Cambria")) 

## plota gráfico 4
ggplot(grotoes, aes(var, fill = year , colour = year)) + 
  geom_density(alpha = 0.4) +
  labs(x = " ") +
  xlim(0,2.5) +
  theme(text = element_text(size = 11, family = "Cambria")) 


## análise por partido

##2012

## carrega e organiza banco por mediana
progs <- read.delim("progs2012.csv", header = TRUE, sep = ";", dec = ",")
progs$thetaparty <- as.numeric(as.character(progs$thetaparty))
mtemp <- tapply(progs$thetaparty, progs$party, median) 
progs$party <- factor(progs$party,names(mtemp[order(mtemp)])) 

## plota gráfico 5
ggplot(progs, aes(x = party, y = thetaparty)) + 
  geom_boxplot()+
  labs(x = "", y = "") +
  geom_hline(yintercept = 0, lty = 2) +
  coord_flip() +
  theme(text = element_text(size = 11, family = "Cambria")) 

##2016

## carrega e organiza banco por mediana
progs <- read.delim("progs2016.csv", header = TRUE, sep = ";", dec = ",")
progs$thetaparty <- as.numeric(as.character(progs$thetaparty))
mtemp <- tapply(progs$thetaparty, progs$party, median) 
progs$party <- factor(progs$party,names(mtemp[order(mtemp)])) 

## plota gráfico 5
ggplot(progs, aes(x = party, y = thetaparty)) + 
  geom_boxplot()+
  labs(x = "", y = "") +
  geom_hline(yintercept = 0, lty = 2) +
  coord_flip() +
  theme(text = element_text(size = 11, family = "Cambria")) 


#### comparação de termos 

library(qdap)
library(tm)
load("stopW.RData")

## quadro 1

## cria e pré-processa corpus1
readLines("PE_Manari_PSB.txt") 
corpus1 <- paste(readLines("PE_Manari_PSB.txt"), collapse =" ")

## unifica letras em minúsculas
corpus1 <- tolower(corpus1)

## retira números, artigos, preposições e palavras a serem desconsideradas
corpus1 <- removeNumbers(corpus1)
novoStops <- c(stopW, "município", "municipio", "munícipios",
               "municipal", "municipais", "governo", 
               "prefeitura", "prefeituras", "prefeito", 
               "plano", "programa", "assim", "além", "etc", 
               "demais", "tais","aqui", "character(0)", "coligação", 
               "coligacao", "é")
corpus1 <- removeWords(corpus1, novoStops) 
corpus1 <- removeWords(corpus1, stopwords("portuguese"))

## retira acentos e espaços duplos
corpus1 <- gsub("á", "a", corpus1)
corpus1 <- gsub("à", "a", corpus1)
corpus1 <- gsub("ã", "a", corpus1)
corpus1 <- gsub("â", "a", corpus1)
corpus1 <- gsub("ă", "a", corpus1)
corpus1 <- gsub("ª", "a", corpus1)
corpus1 <- gsub("é", "e", corpus1)
corpus1 <- gsub("ê", "e", corpus1)
corpus1 <- gsub("ę", "e", corpus1)
corpus1 <- gsub("í", "i", corpus1)
corpus1 <- gsub("ó", "o", corpus1)
corpus1 <- gsub("ô", "o", corpus1)
corpus1 <- gsub("õ", "o", corpus1)
corpus1 <- gsub("º", "o", corpus1)
corpus1 <- gsub("ú", "u", corpus1)
corpus1 <- gsub("ü", "u", corpus1)
corpus1 <- gsub("ç", "c", corpus1)
removeSpecialChars <- function(x) gsub("[^a-zA-Z0-9 ]"," ",x)
corpus1 <- removeSpecialChars(corpus1)
corpus1 <- stripWhitespace(corpus1)

## transforma palavras em stems
corpus1 <- stemDocument(corpus1)

## salva termos em planilha (disponibilizada)
#corpus1a <- strsplit(corpus1, " ")
#corpus1a <- as.data.frame(corpus1a)
#corpus1a <- unique(corpus1a)
#write.table(corpus1a, "manaripsb12.csv")


## cria e pré-processa corpus 2
readLines("PE_Manari_PSDB.txt") 
corpus2 <- paste(readLines("PE_Manari_PSDB.txt"), collapse =" ")

## unifica letras em minúsculas
corpus2 <- tolower(corpus2)

## retira números, artigos, preposições e palavras a serem desconsideradas
corpus2 <- removeNumbers(corpus2)
novoStops <- c(stopW, "município", "municipio", "munícipios",
               "municipal", "municipais", "governo", 
               "prefeitura", "prefeituras", "prefeito", 
               "plano", "programa", "assim", "além", "etc", 
               "demais", "tais","aqui", "character(0)", "coligação", 
               "coligacao", "é")
corpus2 <- removeWords(corpus2, novoStops) 
corpus2 <- removeWords(corpus2, stopwords("portuguese"))

## retira acentos e espaços duplos
corpus2 <- gsub("á", "a", corpus2)
corpus2 <- gsub("à", "a", corpus2)
corpus2 <- gsub("ã", "a", corpus2)
corpus2 <- gsub("â", "a", corpus2)
corpus2 <- gsub("ă", "a", corpus2)
corpus2 <- gsub("ª", "a", corpus2)
corpus2 <- gsub("é", "e", corpus2)
corpus2 <- gsub("ê", "e", corpus2)
corpus2 <- gsub("ę", "e", corpus2)
corpus2 <- gsub("í", "i", corpus2)
corpus2 <- gsub("ó", "o", corpus2)
corpus2 <- gsub("ô", "o", corpus2)
corpus2 <- gsub("õ", "o", corpus2)
corpus2 <- gsub("º", "o", corpus2)
corpus2 <- gsub("ú", "u", corpus2)
corpus2 <- gsub("ü", "u", corpus2)
corpus2 <- gsub("ç", "c", corpus2)
removeSpecialChars <- function(x) gsub("[^a-zA-Z0-9 ]"," ",x)
corpus2 <- removeSpecialChars(corpus2)
corpus2 <- stripWhitespace(corpus2)

## transforma palavras em stems
corpus2 <- stemDocument(corpus2)

## salva termos em planilha (disponibilizada)
#corpus2a <- strsplit(corpus2, " ")
#corpus2a <- as.data.frame(corpus2a)
#corpus2a <- unique(corpus2a)
#write.table(corpus2a, "manaripsdb12.csv")


## substituição de termos comuns
## A lista dos termos do comando gsub são copiadas da planilha salva em etapa anterior. 
## IMPORTANTE: quando objeto corpus 1, usar lista do corpus 2 e vice-versa

## substitui termos de corpus2 em corpus1
corpus1 <- mgsub(c( "progresso",
                    "continua",
                    "manari",
                    "apresentacao",
                    "composta",
                    "partido",
                    "psdb",
                    "pmdb",
                    "dem",
                    "ptb",
                    "pp",
                    "psd",
                    "phs",
                    "pv",
                    "criada",
                    "torno",
                    "projeto",
                    "desenvolvimento",
                    "sustentavel",
                    "vem",
                    "desenvolvendo",
                    "maneira",
                    "robusta",
                    "necessita",
                    "garantir",
                    "crescimento",
                    "introduza",
                    "nova",
                    "forma",
                    "forca",
                    "historica",
                    "lutaram",
                    "planejaram",
                    "estrategico",
                    "eixo",
                    "assistencia",
                    "emprego",
                    "renda",
                    "sustentabilidad",
                    "orientado",
                    "pessoa",
                    "campo",
                    "cidad",
                    "instituico",
                    "formam",
                    "base",
                    "empresa",
                    "fornecem",
                    "economia",
                    "fornec",
                    "condico",
                    "vida",
                    "saud",
                    "cuida",
                    "educacao",
                    "inclusiva",
                    "qualidad",
                    "turismo",
                    "socialment",
                    "desamparada",
                    "assertiva",
                    "comercio",
                    "tecnica",
                    "homem",
                    "profission",
                    "professor",
                    "formadora",
                    "aluno",
                    "genero",
                    "mulher",
                    "inclusao",
                    "minoria",
                    "aumentar",
                    "oferta",
                    "formal",
                    "fomentar",
                    "geracao",
                    "apoiar",
                    "criar",
                    "local",
                    "dinamica",
                    "criativa",
                    "garanta",
                    "acesso",
                    "prejudicar",
                    "ambient",
                    "assumir",
                    "plenament",
                    "responsabilidad",
                    "proteg",
                    "preservar",
                    "assegurar",
                    "equilibrado",
                    "ben",
                    "naturai",
                    "comun",
                    "estar",
                    "present",
                    "diretr",
                    "aco",
                    "planejada",
                    "dao",
                    "estrategica",
                    "participacao",
                    "cidada",
                    "control",
                    "social",
                    "garantia",
                    "direito",
                    "basico",
                    "seguranca",
                    "lazer",
                    "fortalec",
                    "processo",
                    "decisao",
                    "gestao",
                    "publica",
                    "implantacao",
                    "instrumento",
                    "democracia",
                    "participativa",
                    "convocando",
                    "setor",
                    "sociedad",
                    "civil",
                    "efetiva",
                    "conselho",
                    "conferencia",
                    "audiencia",
                    "plebiscito",
                    "referendo",
                    "reconhec",
                    "papel",
                    "planejamento",
                    "desenho",
                    "urbano",
                    "abordagem",
                    "questo",
                    "ambientai",
                    "sociai",
                    "economica",
                    "culturai",
                    "beneficio",
                    "promov",
                    "bem",
                    "cidadao",
                    "buscando",
                    "integrar",
                    "valor",
                    "habilidad",
                    "necessario",
                    "modo",
                    "saudavel",
                    "assegurando",
                    "equitativo",
                    "servico",
                    "publico",
                    "oportunidad",
                    "formacao",
                    "atividad",
                    "esportiva",
                    "informacao",
                    "digit",
                    "internet",
                    "igualdad",
                    "raca",
                    "etnia",
                    "respeito",
                    "diversidad",
                    "sexual",
                    "concretizacao",
                    "possivel",
                    "atrav",
                    "oito",
                    "politica",
                    "abrangent",
                    "etica",
                    "eficient",
                    "expansao",
                    "qualificacao",
                    "trabalho",
                    "infraestrutura",
                    "rural",
                    "preservacao",
                    "recuperacao",
                    "recurso",
                    "precisa",
                    "eficiencia",
                    "obtida",
                    "gasto",
                    "eficacia",
                    "efetividad",
                    "acao",
                    "governament",
                    "important",
                    "interacao",
                    "torna",
                    "promoveremo",
                    "ativa",
                    "organizada",
                    "acompanhamento",
                    "avaliacao",
                    "destino",
                    "seguint",
                    "implantar",
                    "envolva",
                    "etapa",
                    "execucao",
                    "transparencia",
                    "administrativa",
                    "envolv",
                    "ator",
                    "diverso",
                    "monitorar",
                    "avaliar",
                    "desempenho",
                    "vista",
                    "alcanc",
                    "meta",
                    "estabelecida",
                    "mobilidad",
                    "reconhecendo",
                    "interdependencia",
                    "transport",
                    "globai",
                    "paz",
                    "justica",
                    "equidad",
                    "protecao",
                    "clima",
                    "biodiversidad",
                    "adotar",
                    "proporcionar",
                    "uso",
                    "responsavel",
                    "incentivar",
                    "padrao",
                    "producao",
                    "consumo",
                    "sustentavei",
                    "presenca",
                    "profissionai",
                    "qualificado",
                    "atendimento",
                    "regular",
                    "humanizado",
                    "unidad",
                    "concedido",
                    "manariens",
                    "dignidad",
                    "pretendemo",
                    "cidadania",
                    "promovendo",
                    "essenciai",
                    "aumentando",
                    "inclus",
                    "medicina",
                    "preventiva",
                    "idoso",
                    "bucal",
                    "estudant",
                    "rede",
                    "ampliar",
                    "iten",
                    "compoem",
                    "farmacia",
                    "basica",
                    "tratamento",
                    "medico",
                    "interrompido",
                    "auxilio",
                    "contemplar",
                    "familia",
                    "dispo",
                    "manter",
                    "excelent",
                    "instalaco",
                    "fisica",
                    "hospit",
                    "posto",
                    "localidad",
                    "contratacao",
                    "dentista",
                    "enfermeiro",
                    "tecnico",
                    "especializado",
                    "farmaceutico",
                    "nutricionista",
                    "fisioterapeuta",
                    "biomedico",
                    "psicologo",
                    "pessoal",
                    "apoio",
                    "populacao",
                    "atendida",
                    "pronto",
                    "emergenci",
                    "periodo",
                    "noturno",
                    "finai",
                    "semana",
                    "feriado",
                    "reconhecido",
                    "agrest",
                    "pernambucano",
                    "financeiro",
                    "aquisicao",
                    "oculo",
                    "lent",
                    "especiai",
                    "garantindo",
                    "realizacao",
                    "mamografia",
                    "ultrasson",
                    "prevencao",
                    "cancer",
                    "mama",
                    "colo",
                    "utero",
                    "prostata",
                    "compromisso",
                    "capacitacao",
                    "ocupacao",
                    "produtiva",
                    "jovem",
                    "aumento",
                    "familiar",
                    "autoestima",
                    "portador",
                    "necessidad",
                    "assistenci",
                    "necessitada",
                    "comunidad",
                    "solidaria",
                    "adaptar",
                    "predio",
                    "cadeirant",
                    "cego",
                    "continuar",
                    "respeitam",
                    "valorizam",
                    "cultur",
                    "pluralismo",
                    "defesa",
                    "patrimonio",
                    "natur",
                    "construido",
                    "imateri",
                    "tempo",
                    "promovem",
                    "memoria",
                    "transmissao",
                    "heranca",
                    "artistica",
                    "incentivam",
                    "visao",
                    "aberta",
                    "cultura",
                    "solidario",
                    "simbolico",
                    "transculturai",
                    "ancorado",
                    "pratica",
                    "dialogica",
                    "assessorar",
                    "grupo",
                    "mae",
                    "joven",
                    "oferec",
                    "empreendedorismo",
                    "bolsa",
                    "fome",
                    "zero",
                    "campeao",
                    "valorizacao",
                    "educativa",
                    "merenda",
                    "escolar",
                    "escola",
                    "permanent",
                    "melhoria",
                    "ensino",
                    "proporcionando",
                    "crianca",
                    "erradicando",
                    "analfabetismo",
                    "ampliando",
                    "nivel",
                    "escolaridad",
                    "propiciando",
                    "distribuicao",
                    "materi",
                    "didatico",
                    "pedagogico",
                    "uniform",
                    "mochila",
                    "educador",
                    "dar",
                    "acessorio",
                    "ofertando",
                    "cardapio",
                    "regionalizado",
                    "qualificando",
                    "frota",
                    "universitario",
                    "extracurricular",
                    "incluindo",
                    "curso",
                    "informatica",
                    "musica",
                    "danca",
                    "teatro",
                    "violao",
                    "pintura",
                    "canto",
                    "dispor",
                    "especi",
                    "oftalmologista",
                    "otorrino",
                    "fonoaudiologo",
                    "economico",
                    "incentivando",
                    "criacao",
                    "novo",
                    "negocio",
                    "programa",
                    "desenvolva",
                    "potencialidad",
                    "ecologico",
                    "historico",
                    "aventura",
                    "mao",
                    "obra",
                    "ampliacao",
                    "industria",
                    "investidor",
                    "locai",
                    "servidor",
                    "superior",
                    "medio",
                    "cargo",
                    "carreira",
                    "pagamento",
                    "salario",
                    "dia",
                    "formar",
                    "quadro",
                    "atuarem",
                    "convenio",
                    "orgao",
                    "viabilizar",
                    "profissionalizacao",
                    "art",
                    "oficio",
                    "pleno",
                    "urbana",
                    "melhorar",
                    "saneamento",
                    "melhorando",
                    "coleta",
                    "lixo",
                    "atingir",
                    "seletiva",
                    "desenvolvem",
                    "buscar",
                    "parceria",
                    "desenvolv",
                    "habitacao",
                    "construcao",
                    "casa",
                    "popular",
                    "construir",
                    "abrigo",
                    "passageiro",
                    "incrementando",
                    "alimento",
                    "maior",
                    "reducao",
                    "pobreza",
                    "agricultor",
                    "parqu",
                    "maquina",
                    "implemento",
                    "agricola",
                    "produtor",
                    "patrol",
                    "cacamba",
                    "trator",
                    "esteira",
                    "retro",
                    "escavadeira",
                    "agroindustria",
                    "credito",
                    "fortalecendo",
                    "associativismo",
                    "cooperativismo",
                    "agricultura",
                    "criando",
                    "balcao",
                    "prestar",
                    "doacao",
                    "sement",
                    "adubacao",
                    "fruticultura",
                    "inseminacao",
                    "artifici",
                    "organica",
                    "aracao",
                    "terra",
                    "estrada",
                    "vicinai",
                    "propiciar",
                    "reciclagem",
                    "moradia",
                    "prestacao",
                    "hora",
                    "reorganizar",
                    "area",
                    "destinada",
                    "orientada",
                    "prevenir",
                    "superar",
                    "condicao",
                    "espaco",
                    "recreativo",
                    "terceira",
                    "idad",
                    "realizar",
                    "evento",
                    "esportivo",
                    "torneio",
                    "competico",
                    "jogo",
                    "esport",
                    "radicai",
                    "festa",
                    "religiosa",
                    "evangelica",
                    "tradicionai",
                    "romaria",
                    "juazeiro",
                    "nort"), "####", corpus1) 

## salva em txt
lapply(corpus1, write, "hashpauinipsb16.txt", append = TRUE)

## substitui termos de corpus1 em corpus2
corpus2 <- mgsub(c( "povo",
                    "manari",
                    "projeto",
                    "psb",
                    "pt",
                    "pr",
                    "psc",
                    "pfl",
                    "cicero",
                    "oliveira",
                    "santo",
                    "vice",
                    "ataid",
                    "simao",
                    "sumario",
                    "educacao",
                    "proposta",
                    "acao",
                    "saud",
                    "social",
                    "inclusao",
                    "crianca",
                    "adolescent",
                    "politica",
                    "genero",
                    "diversidad",
                    "sexual",
                    "igualdad",
                    "racial",
                    "terceira",
                    "idad",
                    "juventud",
                    "agricultura",
                    "cidadania",
                    "campo",
                    "fort",
                    "viver",
                    "melhor",
                    "cultura",
                    "turismo",
                    "transport",
                    "obra",
                    "urbanismo",
                    "habitacao",
                    "seguranca",
                    "gestao",
                    "ambient",
                    "desenvolvimento",
                    "economico",
                    "sustentavel",
                    "emprego",
                    "renda",
                    "possivel",
                    "libertar",
                    "livrar",
                    "escravidao",
                    "insignificant",
                    "efemera",
                    "ilusoria",
                    "retrocesso",
                    "pessoa",
                    "caminhada",
                    "propria",
                    "faz",
                    "puder",
                    "se",
                    "resultado",
                    "vira",
                    "proporcao",
                    "esforco",
                    "compreend",
                    "veio",
                    "compet",
                    "modificar",
                    "tecnica",
                    "viso",
                    "verdad",
                    "mahatma",
                    "gandhi",
                    "apresentacao",
                    "elaboramo",
                    "baseado",
                    "compromisso",
                    "atend",
                    "necessidad",
                    "firmamo",
                    "responsabilidad",
                    "criarmo",
                    "sociedad",
                    "justa",
                    "humana",
                    "construimo",
                    "modelo",
                    "vista",
                    "melhoria",
                    "aco",
                    "diverso",
                    "setor",
                    "olhar",
                    "comprometimento",
                    "qualidad",
                    "vida",
                    "populacao",
                    "lutar",
                    "progresso",
                    "cidad",
                    "partir",
                    "construir",
                    "centro",
                    "integrado",
                    "lazer",
                    "espaco",
                    "convivencia",
                    "programa",
                    "educativo",
                    "socioculturai",
                    "estabelec",
                    "padrao",
                    "rede",
                    "forma",
                    "garantir",
                    "bom",
                    "atendimento",
                    "aluno",
                    "restricao",
                    "reestruturar",
                    "pedagogica",
                    "voltada",
                    "joven",
                    "adulto",
                    "organizando",
                    "curriculo",
                    "voltado",
                    "mundo",
                    "trabalho",
                    "consider",
                    "especialment",
                    "questo",
                    "raca",
                    "geracao",
                    "incluindo",
                    "processo",
                    "educacion",
                    "aperfeicoar",
                    "ensino",
                    "fundament",
                    "manter",
                    "oferta",
                    "vaga",
                    "criterio",
                    "acesso",
                    "democratico",
                    "transparent",
                    "promovendo",
                    "permanencia",
                    "desenvolvendo",
                    "ampliacao",
                    "gradual",
                    "aprimorar",
                    "alfabetizacao",
                    "ampliar",
                    "feder",
                    "brasil",
                    "alfabetizado",
                    "pro",
                    "jovem",
                    "modo",
                    "dialoguem",
                    "novo",
                    "eja",
                    "implantar",
                    "entrega",
                    "uniform",
                    "materiai",
                    "escolar",
                    "assegurando",
                    "prazo",
                    "professor",
                    "bem",
                    "garantia",
                    "pagamento",
                    "dificil",
                    "promov",
                    "conhecimento",
                    "cientifico",
                    "humanistico",
                    "artistico",
                    "tecnologico",
                    "valor",
                    "etico",
                    "viabilizar",
                    "implantacao",
                    "merenda",
                    "diferenciada",
                    "pnae",
                    "nacion",
                    "alimentacao",
                    "auxilio",
                    "nutricionista",
                    "formulacao",
                    "cardapio",
                    "sentido",
                    "nutricionai",
                    "matriculada",
                    "escola",
                    "considerar",
                    "informatica",
                    "nova",
                    "linguagen",
                    "comunicacao",
                    "juntament",
                    "formacao",
                    "permanent",
                    "valorizacao",
                    "educador",
                    "reorientacao",
                    "curricular",
                    "metodo",
                    "avaliacao",
                    "aspecto",
                    "indissociavei",
                    "reorganizar",
                    "orientaco",
                    "construcao",
                    "politico",
                    "pedagogico",
                    "cargo",
                    "carreira",
                    "pcc",
                    "contemplem",
                    "especificidad",
                    "deciso",
                    "democratica",
                    "potencializar",
                    "papel",
                    "campanha",
                    "educativa",
                    "tematica",
                    "meio",
                    "transito",
                    "enfrentar",
                    "fator",
                    "evasao",
                    "adotar",
                    "fio",
                    "condutor",
                    "principio",
                    "inclusiva",
                    "solidaria",
                    "nivei",
                    "modalidad",
                    "troca",
                    "experiencia",
                    "criar",
                    "canai",
                    "assegurar",
                    "execucao",
                    "elevacao",
                    "escolaridad",
                    "consolidar",
                    "capacitacao",
                    "utilizacao",
                    "deficiencia",
                    "acessibilidad",
                    "equipamento",
                    "profissionai",
                    "unidad",
                    "considerada",
                    "prioritaria",
                    "principalment",
                    "maria",
                    "alzira",
                    "jorg",
                    "aumentar",
                    "infantil",
                    "atrav",
                    "crech",
                    "nuclear",
                    "educacionai",
                    "possibilitem",
                    "clientela",
                    "estudantil",
                    "incentivar",
                    "conscientizar",
                    "pai",
                    "participacao",
                    "membro",
                    "conselho",
                    "acompanhamento",
                    "fundeb",
                    "refeicao",
                    "prestar",
                    "conta",
                    "atividad",
                    "didatico",
                    "desenvolvida",
                    "secretaria",
                    "recurso",
                    "aplicado",
                    "contratar",
                    "psicologo",
                    "fonoaudiologo",
                    "psicopedagogo",
                    "trabalhador",
                    "garantam",
                    "maior",
                    "tempo",
                    "art",
                    "teatro",
                    "artesanato",
                    "oficina",
                    "pintura",
                    "musica",
                    "danca",
                    "esportiva",
                    "parceria",
                    "entidad",
                    "publica",
                    "privada",
                    "propici",
                    "preparacao",
                    "mao",
                    "mercado",
                    "atualizar",
                    "acervo",
                    "biblioteca",
                    "informatiza",
                    "erradicar",
                    "analfabetismo",
                    "carinho",
                    "envolverao",
                    "realizacao",
                    "curso",
                    "seminario",
                    "conferencia",
                    "atualizacao",
                    "aperfeicoamento",
                    "premiacao",
                    "diretor",
                    "mediant",
                    "bonificaco",
                    "desempenho",
                    "atingirem",
                    "patamar",
                    "considerado",
                    "excelencia",
                    "acordo",
                    "ideb",
                    "indic",
                    "basica",
                    "formar",
                    "estado",
                    "medio",
                    "tecnico",
                    "valorizar",
                    "diversa",
                    "categoria",
                    "trabalham",
                    "direta",
                    "indiretament",
                    "filho",
                    "universidad",
                    "firmando",
                    "familia",
                    "provada",
                    "venham",
                    "estadia",
                    "priorizando",
                    "comunidad",
                    "vulnerabilidad",
                    "disponibilizar",
                    "ambulancia",
                    "povoado",
                    "estrutura",
                    "necessitam",
                    "tfd",
                    "tratamento",
                    "domicilio",
                    "enfermeiro",
                    "auxiliar",
                    "enfermagem",
                    "condico",
                    "remuneracao",
                    "digna",
                    "continuada",
                    "humanizacao",
                    "contratacao",
                    "medico",
                    "plantonista",
                    "postura",
                    "atencao",
                    "cuidado",
                    "responda",
                    "efetivament",
                    "expectativa",
                    "demanda",
                    "gerada",
                    "dentro",
                    "universalidad",
                    "integr",
                    "humanizada",
                    "equidad",
                    "introduzir",
                    "ministerio",
                    "psf",
                    "sorrident",
                    "domiciliar",
                    "pad",
                    "farmacia",
                    "popular",
                    "cap",
                    "psicossoci",
                    "idoso",
                    "mulher",
                    "pac",
                    "agent",
                    "comunitario",
                    "fornecimento",
                    "gratuito",
                    "medicamento",
                    "odontologico",
                    "vigilancia",
                    "sanitaria",
                    "constatacao",
                    "levantada",
                    "realizar",
                    "preventiva",
                    "curativa",
                    "doenca",
                    "sexualment",
                    "transmissivei",
                    "mental",
                    "instituico",
                    "exam",
                    "especifico",
                    "garanta",
                    "integracao",
                    "transferencia",
                    "estadu",
                    "situacao",
                    "estrategia",
                    "sistema",
                    "unico",
                    "assistencia",
                    "planejar",
                    "estrategica",
                    "selo",
                    "unicef",
                    "adequar",
                    "referencia",
                    "cras",
                    "regio",
                    "reabilitacao",
                    "marcilia",
                    "lima",
                    "especiai",
                    "encontro",
                    "anuai",
                    "pne",
                    "proporcionando",
                    "recreacao",
                    "efetivar",
                    "especializado",
                    "crea",
                    "festividad",
                    "comemorativa",
                    "dia",
                    "mae",
                    "natal",
                    "complementar",
                    "microcredito",
                    "profission",
                    "cooperativismo",
                    "esport",
                    "integrada",
                    "area",
                    "enfocando",
                    "prioritariament",
                    "prevencao",
                    "fortalec",
                    "capacidad",
                    "violencia",
                    "decorrent",
                    "negligencia",
                    "abuso",
                    "maus",
                    "trato",
                    "exploracao",
                    "crueldad",
                    "relacao",
                    "privilegiar",
                    "socioeducativa",
                    "aberto",
                    "destaqu",
                    "sucesso",
                    "familiar",
                    "comunitaria",
                    "realizam",
                    "abrigamento",
                    "direito",
                    "tutelar",
                    "aderir",
                    "promocao",
                    "defesa",
                    "fomento",
                    "apoio",
                    "plano",
                    "regionai",
                    "protetor",
                    "vitima",
                    "conflito",
                    "lei",
                    "humano",
                    "divulgar",
                    "qualificar",
                    "servico",
                    "humanizado",
                    "visem",
                    "reduzir",
                    "combat",
                    "desenvolv",
                    "contribuam",
                    "reestruturacao",
                    "sofreram",
                    "domestica",
                    "priorizar",
                    "chefe",
                    "baixa",
                    "sociai",
                    "conscientizacao",
                    "objetivo",
                    "evitar",
                    "discriminacao",
                    "homossexu",
                    "homofobia",
                    "apoiar",
                    "evento",
                    "servidor",
                    "relacionada",
                    "visando",
                    "elimin",
                    "manifestacao",
                    "valorizem",
                    "negra",
                    "contribuindo",
                    "debat",
                    "enfrentamento",
                    "intolerancia",
                    "idosa",
                    "ponto",
                    "sobretudo",
                    "concentracao",
                    "consonancia",
                    "iniciativa",
                    "producao",
                    "cultur",
                    "transformar",
                    "praca",
                    "destinado",
                    "culturai",
                    "respeitando",
                    "terceiro",
                    "propagar",
                    "juveni",
                    "cidada",
                    "literatura",
                    "capoeira",
                    "esportivo",
                    "atendam",
                    "reai",
                    "formular",
                    "diretr",
                    "discutir",
                    "prioridad",
                    "avaliar",
                    "governamentai",
                    "ano",
                    "excluido",
                    "trabalhando",
                    "eixo",
                    "qualificacao",
                    "informativa",
                    "sexualidad",
                    "droga",
                    "adequado",
                    "diferenciado",
                    "drogadicao",
                    "tratado",
                    "dependent",
                    "quimico",
                    "sujeito",
                    "incentivo",
                    "fundacao",
                    "associaco",
                    "existent",
                    "motivacao",
                    "organizacao",
                    "grupo",
                    "criacao",
                    "cooperativa",
                    "credito",
                    "agricultor",
                    "fortalecimento",
                    "zona",
                    "rural",
                    "elaboracao",
                    "relatorio",
                    "clima",
                    "rima",
                    "legislacao",
                    "aquisicao",
                    "maquina",
                    "trator",
                    "implemento",
                    "agricola",
                    "aracao",
                    "terra",
                    "banco",
                    "sement",
                    "distribuicao",
                    "milho",
                    "feijao",
                    "sorgo",
                    "capim",
                    "revitalizar",
                    "peren",
                    "pinha",
                    "mandioca",
                    "caju",
                    "arborizar",
                    "urbana",
                    "planta",
                    "frutifera",
                    "capacitar",
                    "aproveitamento",
                    "umbu",
                    "beneficiamento",
                    "seguro",
                    "safra",
                    "paa",
                    "casa",
                    "mel",
                    "farinha",
                    "polpa",
                    "leit",
                    "motivar",
                    "alternativa",
                    "semiarido",
                    "manejo",
                    "sanidad",
                    "anim",
                    "raiva",
                    "aftosa",
                    "mamit",
                    "mastrit",
                    "forragen",
                    "silagem",
                    "fenacao",
                    "palma",
                    "forrageira",
                    "doar",
                    "kit",
                    "veterinario",
                    "vacina",
                    "melhoramento",
                    "genetico",
                    "rebanho",
                    "port",
                    "recuperar",
                    "melhorar",
                    "estrada",
                    "vicinai",
                    "picarramento",
                    "barragen",
                    "barreiro",
                    "pnhr",
                    "banheiro",
                    "fossa",
                    "asseptica",
                    "cisterna",
                    "produtivo",
                    "publico",
                    "comercializacao",
                    "produto",
                    "anualment",
                    "feira",
                    "abatedouro",
                    "frigorifico",
                    "animai",
                    "dinamizar",
                    "fundo",
                    "objetivando",
                    "produtor",
                    "participar",
                    "livro",
                    "leitura",
                    "festa",
                    "sebastiao",
                    "emancipacao",
                    "repercussao",
                    "region",
                    "reunir",
                    "manifestaco",
                    "resgatar",
                    "religiosa",
                    "senhora",
                    "conceicao",
                    "pratica",
                    "comecando",
                    "iniciacao",
                    "passando",
                    "disseminacao",
                    "larga",
                    "escala",
                    "diferent",
                    "descoberta",
                    "talento",
                    "competitivo",
                    "futebol",
                    "salao",
                    "coletiva",
                    "democratizar",
                    "uso",
                    "quadra",
                    "poliesportiva",
                    "campeonato",
                    "aberta",
                    "realizando",
                    "torneio",
                    "videoteca",
                    "palestra",
                    "interess",
                    "orientacao",
                    "fisica",
                    "recuperacao",
                    "cardiaco",
                    "hipertenso",
                    "estudar",
                    "soluco",
                    "morador",
                    "varia",
                    "urbano",
                    "estatistica",
                    "acident",
                    "identificacao",
                    "locai",
                    "incidencia",
                    "orientar",
                    "intervenco",
                    "engenharia",
                    "fiscalizacao",
                    "operacao",
                    "geral",
                    "pedestr",
                    "passageiro",
                    "inclus",
                    "entorno",
                    "risco",
                    "causado",
                    "trafego",
                    "solto",
                    "torno",
                    "rodovia",
                    "alternativo",
                    "deficit",
                    "habitacion",
                    "buscando",
                    "linha",
                    "financiamento",
                    "regularizacao",
                    "fundiaria",
                    "ocupada",
                    "funcao",
                    "propriedad",
                    "definida",
                    "estatuto",
                    "elaborar",
                    "devera",
                    "definir",
                    "curto",
                    "longo",
                    "implementar",
                    "compativel",
                    "saneamento",
                    "basico",
                    "especi",
                    "preservacao",
                    "autoconstrucao",
                    "reforma",
                    "moradia",
                    "melhorando",
                    "habitabilidad",
                    "delimitar",
                    "dominio",
                    "identificar",
                    "denominar",
                    "rua",
                    "avenida",
                    "bairro",
                    "pavimentar",
                    "aglomerado",
                    "rurai",
                    "agua",
                    "coleta",
                    "residuo",
                    "solido",
                    "buscar",
                    "complexo",
                    "multicultur",
                    "turistico",
                    "revitalizacao",
                    "urbanistica",
                    "economica",
                    "renovacao",
                    "cuidada",
                    "planejamento",
                    "manutencao",
                    "capina",
                    "limpeza",
                    "bueiro",
                    "poda",
                    "arvor",
                    "guia",
                    "sinalizacao",
                    "desratizacao",
                    "descupinizacao",
                    "iluminacao",
                    "garantido",
                    "limpa",
                    "seletiva",
                    "arborizacao",
                    "ajardinamento",
                    "adequada",
                    "conservacao",
                    "calcada",
                    "passeio",
                    "preparar",
                    "placa",
                    "principai",
                    "dar",
                    "aceleracao",
                    "crescimento",
                    "junto",
                    "monitoramento",
                    "via",
                    "camera",
                    "video",
                    "prevenir",
                    "inibir",
                    "representant",
                    "segmento",
                    "orgao",
                    "ligado",
                    "convenio",
                    "pronasci",
                    "justica",
                    "articulem",
                    "direcionada",
                    "causa",
                    "forun",
                    "legal",
                    "criando",
                    "comissao",
                    "composta",
                    "fiscai",
                    "tributo",
                    "mobiliario",
                    "imobiliario",
                    "higien",
                    "abastecimento",
                    "dono",
                    "bare",
                    "cumprir",
                    "norma",
                    "funcionamento",
                    "situaco",
                    "atuar",
                    "rigor",
                    "cumprimento",
                    "proibicao",
                    "venda",
                    "bebida",
                    "alcoolica",
                    "arma",
                    "menor",
                    "desarmamento",
                    "incentivando",
                    "brinquedo",
                    "revista",
                    "quadrinho",
                    "resguardando",
                    "competencia",
                    "legai",
                    "vizinhanca",
                    "ato",
                    "desrespeito",
                    "procurando",
                    "gerar",
                    "coletivament",
                    "codigo",
                    "conduta",
                    "guarda",
                    "fortalecendo",
                    "ronda",
                    "patrimonio",
                    "privado",
                    "prevenindo",
                    "tipo",
                    "vandalismo",
                    "lagoa",
                    "acud",
                    "intensificar",
                    "ambientai",
                    "control",
                    "enfas",
                    "critico",
                    "poluicao",
                    "fixando",
                    "meta",
                    "reducao",
                    "reforcar",
                    "medida",
                    "mitigadora",
                    "compensatoria",
                    "ocupaco",
                    "solo",
                    "potenci",
                    "impacto",
                    "envolvendo",
                    "mobilizacao",
                    "resolucao",
                    "problema",
                    "fomentar",
                    "local",
                    "solidario",
                    "empreendedor",
                    "financeira",
                    "comercio",
                    "cadeia",
                    "produtiva",
                    "instalacao",
                    "empresa",
                    "materia",
                    "prima",
                    "estimular",
                    "compra",
                    "artesao",
                    "exposicao"), "####", corpus2) 

## salva em txt
lapply(corpus2, write, "hashpauinipsdb16.txt", append = TRUE)

## quadro 1 composto de trechos qualitativamente selecionados a partir dos txts gerados acima


## quadro 2

## cria e pré-processa corpus3
readLines("AM_Pauini_PMDB.txt") 
corpus3 <- paste(readLines("AM_Pauini_PMDB.txt"), collapse =" ")

## unifica letras em minúsculas
corpus3 <- tolower(corpus3)

## retira números, artigos, preposições e palavras a serem desconsideradas
corpus3 <- removeNumbers(corpus3)
novoStops <- c(stopW, "município", "municipio", "munícipios",
               "municipal", "municipais", "governo", 
               "prefeitura", "prefeituras", "prefeito", 
               "plano", "programa", "assim", "além", "etc", 
               "demais", "tais","aqui", "character(0)", "coligação", 
               "coligacao", "é")
corpus3 <- removeWords(corpus3, novoStops) 
corpus3 <- removeWords(corpus3, stopwords("portuguese"))

## retira acentos e espaços duplos
corpus3 <- gsub("á", "a", corpus3)
corpus3 <- gsub("à", "a", corpus3)
corpus3 <- gsub("ã", "a", corpus3)
corpus3 <- gsub("â", "a", corpus3)
corpus3 <- gsub("ă", "a", corpus3)
corpus3 <- gsub("ª", "a", corpus3)
corpus3 <- gsub("é", "e", corpus3)
corpus3 <- gsub("ê", "e", corpus3)
corpus3 <- gsub("ę", "e", corpus3)
corpus3 <- gsub("í", "i", corpus3)
corpus3 <- gsub("ó", "o", corpus3)
corpus3 <- gsub("ô", "o", corpus3)
corpus3 <- gsub("õ", "o", corpus3)
corpus3 <- gsub("º", "o", corpus3)
corpus3 <- gsub("ú", "u", corpus3)
corpus3 <- gsub("ü", "u", corpus3)
corpus3 <- gsub("ç", "c", corpus3)
removeSpecialChars <- function(x) gsub("[^a-zA-Z0-9 ]"," ",x)
corpus3 <- removeSpecialChars(corpus3)
corpus3 <- stripWhitespace(corpus3)

## transforma palavras em stems
corpus3 <- stemDocument(corpus3)

## salva termos em planilha (disponibilizada)
#corpus3a <- strsplit(corpus3, " ")
#corpus3a <- as.data.frame(corpus3a)
#corpus3a <- unique(corpus3a)
#write.table(corpus3a, "pauinipmdb16.csv")

## cria e pré-processa corpus4
readLines("AM_Pauini_PSB.txt") 
corpus4 <- paste(readLines("AM_Pauini_PSB.txt"), collapse =" ")

## unifica letras em minúsculas
corpus4 <- tolower(corpus4)

## retira números, artigos, preposições e palavras a serem desconsideradas
corpus4 <- removeNumbers(corpus4)
novoStops <- c(stopW, "município", "municipio", "munícipios",
               "municipal", "municipais", "governo", 
               "prefeitura", "prefeituras", "prefeito", 
               "plano", "programa", "assim", "além", "etc", 
               "demais", "tais","aqui", "character(0)", "coligação", 
               "coligacao", "é")
corpus4 <- removeWords(corpus4, novoStops) 
corpus4 <- removeWords(corpus4, stopwords("portuguese"))

## retira acentos e espaços duplos
corpus4 <- gsub("á", "a", corpus4)
corpus4 <- gsub("à", "a", corpus4)
corpus4 <- gsub("ã", "a", corpus4)
corpus4 <- gsub("â", "a", corpus4)
corpus4 <- gsub("ă", "a", corpus4)
corpus4 <- gsub("ª", "a", corpus4)
corpus4 <- gsub("é", "e", corpus4)
corpus4 <- gsub("ê", "e", corpus4)
corpus4 <- gsub("ę", "e", corpus4)
corpus4 <- gsub("í", "i", corpus4)
corpus4 <- gsub("ó", "o", corpus4)
corpus4 <- gsub("ô", "o", corpus4)
corpus4 <- gsub("õ", "o", corpus4)
corpus4 <- gsub("º", "o", corpus4)
corpus4 <- gsub("ú", "u", corpus4)
corpus4 <- gsub("ü", "u", corpus4)
corpus4 <- gsub("ç", "c", corpus4)
removeSpecialChars <- function(x) gsub("[^a-zA-Z0-9 ]"," ",x)
corpus4 <- removeSpecialChars(corpus4)
corpus4 <- stripWhitespace(corpus4)

## transforma palavras em stems
corpus4 <- stemDocument(corpus4)

## salva termos em planilha (disponibilizada)
#corpus4a <- strsplit(corpus4, " ")
#corpus4a <- as.data.frame(corpus4a)
#corpus4a <- unique(corpus4a)
#write.table(corpus4a, "pauinipsb16.csv")

## substitui termos de corpus4 em corpus3
corpus3 <- mgsub(c( "pont",
                    "futuro",
                    "proposta",
                    "mudanca",
                    "pra",
                    "valer",
                    "veja",
                    "caminho",
                    "escolhemo",
                    "transformar",
                    "cidad",
                    "dividida",
                    "area",
                    "didi",
                    "pretend",
                    "resolv",
                    "problema",
                    "grave",
                    "pauini",
                    "povo",
                    "trabalhador",
                    "honesto",
                    "bom",
                    "lugar",
                    "viver",
                    "vinculada",
                    "desenvolvimento",
                    "socio",
                    "economico",
                    "geracao",
                    "renda",
                    "combat",
                    "pobreza",
                    "implantacao",
                    "sistema",
                    "transport",
                    "publico",
                    "gratuito",
                    "comunidad",
                    "rurai",
                    "transrio",
                    "populacao",
                    "ribeirinha",
                    "graca",
                    "deslocarem",
                    "sede",
                    "passageiro",
                    "carga",
                    "garantia",
                    "preco",
                    "justo",
                    "produtor",
                    "rural",
                    "extrativista",
                    "pescador",
                    "atrav",
                    "criacao",
                    "companhia",
                    "abastecimento",
                    "seguranca",
                    "alimentar",
                    "comab",
                    "garantir",
                    "pagamento",
                    "peix",
                    "castanha",
                    "farinha",
                    "produto",
                    "comprado",
                    "processado",
                    "revendido",
                    "regio",
                    "estado",
                    "pai",
                    "tempo",
                    "passara",
                    "acontec",
                    "projeto",
                    "subvencao",
                    "borracha",
                    "polo",
                    "modernizacao",
                    "tecnologica",
                    "mtec",
                    "assegurar",
                    "empreendedor",
                    "locai",
                    "acesso",
                    "recurso",
                    "tecnologico",
                    "piscicultura",
                    "beneficiamento",
                    "pescado",
                    "genetica",
                    "alimentacao",
                    "manejo",
                    "bovino",
                    "agroindustria",
                    "familiar",
                    "aproveitamento",
                    "madeireiro",
                    "fundo",
                    "economia",
                    "solidaria",
                    "ecosol",
                    "atuacao",
                    "assistencia",
                    "social",
                    "recebera",
                    "anuai",
                    "financiar",
                    "aco",
                    "evento",
                    "estimulem",
                    "atividad",
                    "economica",
                    "natureza",
                    "tendent",
                    "a",
                    "superacao",
                    "exclusao",
                    "gerido",
                    "conselho",
                    "popular",
                    "assessorado",
                    "profissionai",
                    "vinculado",
                    "estimulo",
                    "turismo",
                    "pesca",
                    "artesan",
                    "enorm",
                    "potenci",
                    "desenvolv",
                    "aventura",
                    "devemo",
                    "estimular",
                    "meio",
                    "informaco",
                    "remetida",
                    "agencia",
                    "empresa",
                    "especializada",
                    "vinda",
                    "turista",
                    "gerar",
                    "emprego",
                    "abertura",
                    "manutencao",
                    "estrada",
                    "ramai",
                    "daremo",
                    "apoio",
                    "liga",
                    "lago",
                    "terrua",
                    "faremo",
                    "maloca",
                    "castanheira",
                    "regim",
                    "colaboracao",
                    "mutirao",
                    "abriremo",
                    "ligara",
                    "regiao",
                    "acima",
                    "rio",
                    "facilitar",
                    "morador",
                    "nucleo",
                    "urbano",
                    "construcao",
                    "casa",
                    "artesao",
                    "comercializacao",
                    "artesanato",
                    "local",
                    "promovera",
                    "curso",
                    "capacitacao",
                    "producao",
                    "alta",
                    "qualidad",
                    "instalacao",
                    "feira",
                    "bairro",
                    "ajudar",
                    "melhorar",
                    "condico",
                    "higienica",
                    "venda",
                    "alimento",
                    "perecivei",
                    "educacao",
                    "cultura",
                    "esport",
                    "precisamo",
                    "revolucionario",
                    "capaz",
                    "promov",
                    "profunda",
                    "modo",
                    "administrar",
                    "coragem",
                    "transformador",
                    "transformacao",
                    "comeca",
                    "ma",
                    "gestao",
                    "ensino",
                    "colocou",
                    "pior",
                    "brasil",
                    "termo",
                    "situacao",
                    "arrastou",
                    "baixo",
                    "indicador",
                    "humano",
                    "compromet",
                    "aluno",
                    "dedicar",
                    "avaliacao",
                    "responsabilidad",
                    "elaborando",
                    "partir",
                    "pedagogico",
                    "leve",
                    "conta",
                    "atendimento",
                    "eficient",
                    "eficaz",
                    "necessidad",
                    "atendida",
                    "escola",
                    "integr",
                    "merenda",
                    "fardamento",
                    "materi",
                    "escolar",
                    "estudarao",
                    "doi",
                    "turno",
                    "desenvolverao",
                    "voltada",
                    "lazer",
                    "conteudo",
                    "disciplinar",
                    "obrigatorio",
                    "durant",
                    "dia",
                    "receberao",
                    "adequada",
                    "suficient",
                    "part",
                    "adquirida",
                    "diretament",
                    "agricultor",
                    "campo",
                    "produzido",
                    "costureira",
                    "educacionai",
                    "basico",
                    "oferta",
                    "completo",
                    "medio",
                    "vamo",
                    "entregar",
                    "bem",
                    "construida",
                    "didatico",
                    "computador",
                    "deixar",
                    "professor",
                    "qualificado",
                    "estimulado",
                    "internet",
                    "franqueado",
                    "sociai",
                    "culturai",
                    "democratica",
                    "transparent",
                    "atribuico",
                    "deliberativa",
                    "consultiva",
                    "fiscalizatoria",
                    "gestor",
                    "escolhido",
                    "espaco",
                    "plena",
                    "cidadania",
                    "valorizacao",
                    "docencia",
                    "salario",
                    "previsao",
                    "piso",
                    "nacion",
                    "formacao",
                    "academica",
                    "continuada",
                    "licenciatura",
                    "educador",
                    "atuam",
                    "indigena",
                    "mestrado",
                    "doutorado",
                    "biblioteca",
                    "bon",
                    "livro",
                    "film",
                    "jogo",
                    "laboratorio",
                    "iniciacao",
                    "cientifica",
                    "art",
                    "centro",
                    "esportivo",
                    "quadra",
                    "construir",
                    "destinado",
                    "aula",
                    "vario",
                    "ministrada",
                    "cedido",
                    "instituico",
                    "esportiva",
                    "contratado",
                    "concurso",
                    "equipado",
                    "aparelho",
                    "ginastica",
                    "sala",
                    "multiuso",
                    "coberta",
                    "pratica",
                    "olimpiada",
                    "regionai",
                    "campeonato",
                    "futebol",
                    "estudanti",
                    "garantimo",
                    "realizacao",
                    "anual",
                    "torneio",
                    "realizar",
                    "parceria",
                    "municipio",
                    "purus",
                    "implantaremo",
                    "basica",
                    "alfabetizacao",
                    "lingua",
                    "portuguesa",
                    "apurina",
                    "jamamadi",
                    "bilingu",
                    "proprio",
                    "resgat",
                    "oficio",
                    "criar",
                    "museu",
                    "tradicionalidad",
                    "vida",
                    "historia",
                    "ribeirinho",
                    "bolsa",
                    "estudo",
                    "universitario",
                    "carat",
                    "multiinstitucion",
                    "construido",
                    "mantido",
                    "realizado",
                    "varia",
                    "superior",
                    "publica",
                    "particular",
                    "garantida",
                    "mediant",
                    "dotacao",
                    "orcamentaria",
                    "distribuida",
                    "criterio",
                    "aprovacao",
                    "vestibular",
                    "desempenho",
                    "interess",
                    "convivencia",
                    "terceira",
                    "idad",
                    "apropriado",
                    "fisica",
                    "pessoa",
                    "contara",
                    "saud",
                    "fisioterapia",
                    "informatica",
                    "programacao",
                    "desenvolvida",
                    "calendario",
                    "inclus",
                    "seman",
                    "bail",
                    "festa",
                    "instituir",
                    "reestruturar",
                    "receb",
                    "conced",
                    "financeiro",
                    "festejo",
                    "santo",
                    "agostinho",
                    "grupo",
                    "organizam",
                    "boi",
                    "bumba",
                    "junina",
                    "assegurara",
                    "festiv",
                    "praia",
                    "desfil",
                    "civico",
                    "semana",
                    "patria",
                    "aniversario",
                    "premiacao",
                    "simbolica",
                    "dinheiro",
                    "apresentarem",
                    "melhor",
                    "organizacao",
                    "esperanca",
                    "repass",
                    "adotar",
                    "forma",
                    "politica",
                    "protecao",
                    "crianca",
                    "adolescent",
                    "risco",
                    "reforma",
                    "administrativa",
                    "transparencia",
                    "corrupcao",
                    "estrutura",
                    "obsoleta",
                    "cara",
                    "inoperant",
                    "gasta",
                    "secretaria",
                    "orgao",
                    "funcionam",
                    "mal",
                    "servico",
                    "apesar",
                    "esforco",
                    "dedicacao",
                    "maioria",
                    "servidor",
                    "adequadament",
                    "limpeza",
                    "urbana",
                    "maquina",
                    "equipamento",
                    "exemplo",
                    "parec",
                    "desperdicio",
                    "preciso",
                    "diferent",
                    "setor",
                    "eliminar",
                    "desvio",
                    "sobrara",
                    "pagar",
                    "investir",
                    "obra",
                    "atendam",
                    "portal",
                    "ouvidoria",
                    "ato",
                    "administracao",
                    "fundament",
                    "evitado",
                    "permitir",
                    "cidadao",
                    "acompanhamento",
                    "detalhado",
                    "gasto",
                    "diaria",
                    "recebida",
                    "compra",
                    "realizada",
                    "processo",
                    "licitacao",
                    "nomeaco",
                    "nome",
                    "ficar",
                    "encarregada",
                    "queixa",
                    "reclamaco",
                    "sugesto",
                    "acerca",
                    "criando",
                    "melhoria",
                    "continua",
                    "otica",
                    "exercido",
                    "privilegio",
                    "favor",
                    "pessoai",
                    "auditoria",
                    "ano",
                    "vem",
                    "presenciando",
                    "seri",
                    "relacionado",
                    "radiografia",
                    "realidad",
                    "possamo",
                    "colocar",
                    "ordem",
                    "eliminacao",
                    "nepotismo",
                    "funesta",
                    "empregar",
                    "parent",
                    "combatemo",
                    "beneficia",
                    "enriquec",
                    "governant",
                    "eliminado",
                    "iniciativa",
                    "primeira",
                    "sei",
                    "receberam",
                    "reajust",
                    "ajustado",
                    "evolucao",
                    "receita",
                    "garantido",
                    "reducao",
                    "numero",
                    "tamanho",
                    "tao",
                    "significar",
                    "maior",
                    "capacidad",
                    "trabalho",
                    "significa",
                    "veze",
                    "soment",
                    "jeitinho",
                    "arrumar",
                    "amigo",
                    "aliado",
                    "politico",
                    "cinco",
                    "fazermo",
                    "saneamento",
                    "reduzir",
                    "alarmant",
                    "nivei",
                    "contaminacao",
                    "doenca",
                    "podem",
                    "evitada",
                    "passo",
                    "adoecam",
                    "prevenir",
                    "evitar",
                    "marcado",
                    "cuidado",
                    "condicao",
                    "necessaria",
                    "preservada",
                    "acompanhar",
                    "perto",
                    "principalment",
                    "idoso",
                    "mulher",
                    "fim",
                    "podemo",
                    "faltar",
                    "remedio",
                    "unidad",
                    "abandonar",
                    "necessitam",
                    "tratamento",
                    "especiai",
                    "implantar",
                    "coleta",
                    "seletiva",
                    "residuo",
                    "solido",
                    "lixo",
                    "disciplinando",
                    "rua",
                    "logradouro",
                    "residencia",
                    "estruturar",
                    "aterro",
                    "sanitario",
                    "eliminando",
                    "destinacao",
                    "incorreta",
                    "valorizar",
                    "familia",
                    "visita",
                    "constant",
                    "equip",
                    "medica",
                    "priorizando",
                    "exam",
                    "clinico",
                    "solicitado",
                    "deixando",
                    "medicamento",
                    "receituario",
                    "medico",
                    "enfermeiro",
                    "carreira",
                    "garantindo",
                    "progressao",
                    "acometida",
                    "cronica",
                    "necessario",
                    "branco",
                    "manaus",
                    "dotando",
                    "pessoal",
                    "contratar",
                    "especializado",
                    "fornecimento",
                    "portador",
                    "diabetico",
                    "hipertenso",
                    "doent",
                    "hora",
                    "ambulancia",
                    "barco",
                    "interior",
                    "adocao",
                    "habito",
                    "saudavei",
                    "higien",
                    "exercicio",
                    "fisico",
                    "urbanizacao",
                    "maltratada",
                    "sucessivo",
                    "governo",
                    "estaduai",
                    "fazem",
                    "fachada",
                    "mentira",
                    "asfaltamento",
                    "carissima",
                    "porto",
                    "serviram",
                    "olhar",
                    "permissivo",
                    "malandro",
                    "exigir",
                    "cobrar",
                    "denunciar",
                    "imprestavei",
                    "assumir",
                    "conducao",
                    "caso",
                    "executar",
                    "utilizar",
                    "disponivei",
                    "carent",
                    "calcamento",
                    "privada",
                    "possivel",
                    "ent",
                    "governamentai",
                    "revitalizacao",
                    "portuaria",
                    "orla",
                    "ligacao",
                    "asfaltica",
                    "atual",
                    "fortaleza",
                    "chamada",
                    "via",
                    "contencao",
                    "encosta",
                    "mirant",
                    "paisagismo",
                    "despoluicao",
                    "jogado",
                    "maneira",
                    "irregular",
                    "razao",
                    "volum",
                    "dependera",
                    "uniao",
                    "tarefa",
                    "propor",
                    "agent",
                    "desenvolvido",
                    "apresentado",
                    "propria",
                    "entanto",
                    "viabilizar",
                    "emenda",
                    "orcamento",
                    "feder",
                    "novo",
                    "aeroporto",
                    "pista",
                    "transformada",
                    "recreacao",
                    "instalaco",
                    "conviv",
                    "elevado",
                    "indic",
                    "violencia",
                    "criminalidad",
                    "cabe",
                    "defensoria",
                    "apoiar",
                    "tutelar",
                    "fortalec",
                    "domestica",
                    "uso",
                    "droga",
                    "implantando",
                    "rede",
                    "usuario",
                    "estadu",
                    "cumpra",
                    "obrigaco",
                    "ingressaremo",
                    "justica",
                    "amazona",
                    "delegado",
                    "promotor",
                    "permanent",
                    "efetivo"), "####", corpus3) 

## salva em txt
lapply(corpus3, write, "hashpauinipmdb16.txt", append = TRUE)

## substitui termos de corpus3 em corpus4
corpus4 <- mgsub(c( "apresentacao",
                    "saud",
                    "educacao",
                    "infraestrutura",
                    "esport",
                    "lazer",
                    "desenvolvimento",
                    "economico",
                    "meio",
                    "ambient",
                    "saneamento",
                    "basico",
                    "seguranca",
                    "habitacao",
                    "bem",
                    "social",
                    "restruturacao",
                    "administracao",
                    "publica",
                    "elaboramo",
                    "cinco",
                    "ano",
                    "iten",
                    "possamo",
                    "desenvolv",
                    "durant",
                    "atendimento",
                    "necessidad",
                    "principalment",
                    "busca",
                    "nova",
                    "melhoria",
                    "qualidad",
                    "vida",
                    "povo",
                    "acolhedora",
                    "inclusa",
                    "servico",
                    "publico",
                    "passa",
                    "obrigatoriament",
                    "humanizacao",
                    "recepcao",
                    "unidad",
                    "basica",
                    "medico",
                    "focando",
                    "qualificacao",
                    "recuperacao",
                    "manutencao",
                    "posto",
                    "medicamento",
                    "automatizar",
                    "laboratorio",
                    "criar",
                    "centro",
                    "referencia",
                    "mulher",
                    "contratacao",
                    "clinico",
                    "geral",
                    "ginecologista",
                    "pediatra",
                    "reestruturacao",
                    "casa",
                    "apoio",
                    "rio",
                    "branco",
                    "tempo",
                    "integr",
                    "consist",
                    "meta",
                    "pretendemo",
                    "atingir",
                    "proximo",
                    "gestao",
                    "ocorra",
                    "precisamo",
                    "implementar",
                    "aco",
                    "venha",
                    "encontro",
                    "aluno",
                    "matriculado",
                    "rede",
                    "ensino",
                    "sentido",
                    "compreendemo",
                    "direito",
                    "acesso",
                    "escolarizacao",
                    "infantil",
                    "universalizar",
                    "crianca",
                    "atend",
                    "atual",
                    "demanda",
                    "reprimida",
                    "aperfeicoar",
                    "fundament",
                    "mobilidad",
                    "especi",
                    "joven",
                    "adulto",
                    "reforma",
                    "ampliacao",
                    "escolinha",
                    "professor",
                    "ruben",
                    "pereira",
                    "menez",
                    "construcao",
                    "esola",
                    "convenio",
                    "estado",
                    "feder",
                    "valorizacao",
                    "profissionai",
                    "implantacao",
                    "polo",
                    "zona",
                    "rural",
                    "curso",
                    "mediacao",
                    "tecnologica",
                    "escola",
                    "adaptada",
                    "oferta",
                    "medio",
                    "aldeia",
                    "adjacencia",
                    "reivindicar",
                    "junto",
                    "estadu",
                    "trazer",
                    "universitario",
                    "uea",
                    "universidad",
                    "amazona",
                    "garantir",
                    "autonomia",
                    "administrativa",
                    "financeira",
                    "secretaria",
                    "transport",
                    "escolar",
                    "apoiar",
                    "fanfarra",
                    "merenda",
                    "urbana",
                    "priorizar",
                    "variedad",
                    "alimento",
                    "da",
                    "continuidad",
                    "colono",
                    "macuti",
                    "margem",
                    "pauini",
                    "maloca",
                    "melhorar",
                    "sistema",
                    "viario",
                    "revitalizacao",
                    "cultur",
                    "pauiniens",
                    "praca",
                    "bibiano",
                    "osorio",
                    "santo",
                    "agostinho",
                    "termin",
                    "passageiro",
                    "entreposto",
                    "pescado",
                    "porto",
                    "descarga",
                    "bairro",
                    "fortaleza",
                    "transbordo",
                    "buscar",
                    "ministerio",
                    "cidad",
                    "pavimentacao",
                    "rua",
                    "agua",
                    "esgoto",
                    "francisco",
                    "portelinha",
                    "criacao",
                    "area",
                    "destinada",
                    "festejo",
                    "boi",
                    "glorioso",
                    "estrelinha",
                    "estruturacao",
                    "espaco",
                    "pessoa",
                    "terceira",
                    "idad",
                    "quadra",
                    "areia",
                    "revitalizar",
                    "estadio",
                    "edigar",
                    "coutinho",
                    "promov",
                    "campeonato",
                    "copao",
                    "reestruturar",
                    "joaquim",
                    "bolbino",
                    "neto",
                    "academia",
                    "ar",
                    "livr",
                    "producao",
                    "abastecimento",
                    "visando",
                    "fortalecimento",
                    "recurso",
                    "tecnologico",
                    "corpo",
                    "tecnico",
                    "geracao",
                    "rensa",
                    "qualidadad",
                    "beneficiario",
                    "agricola",
                    "prestacao",
                    "assistencia",
                    "tecnica",
                    "comunidad",
                    "produtor",
                    "rurai",
                    "orientar",
                    "armazenamento",
                    "condicionamento",
                    "produto",
                    "futura",
                    "comercliazacao",
                    "agregacao",
                    "preco",
                    "comercializado",
                    "fortalec",
                    "sindicato",
                    "associaco",
                    "colonia",
                    "pescador",
                    "cooperativa",
                    "adquirir",
                    "estrutura",
                    "setor",
                    "primario",
                    "alavancar",
                    "segmentaco",
                    "agropecuaria",
                    "pesqueira",
                    "extrativista",
                    "artesanai",
                    "galpao",
                    "aramazenamento",
                    "materiai",
                    "fomentacao",
                    "aquisicao",
                    "diverso",
                    "parceria",
                    "atrav",
                    "conab",
                    "programa",
                    "paa",
                    "preme",
                    "doaco",
                    "simultanea",
                    "agremiaco",
                    "instituico",
                    "eclesiastica",
                    "ong",
                    "fabrica",
                    "gelo",
                    "aumentar",
                    "produtividad",
                    "capacidad",
                    "vena",
                    "excedent",
                    "renda",
                    "sustentoda",
                    "onerar",
                    "despesa",
                    "viveiro",
                    "muda",
                    "alevino",
                    "terreno",
                    "estrada",
                    "fometacao",
                    "agricultor",
                    "piscicultor",
                    "horta",
                    "comunitaria",
                    "abrangendo",
                    "perdurar",
                    "envolvida",
                    "maquinario",
                    "degradada",
                    "tecnologia",
                    "mecanizacao",
                    "consumo",
                    "utilizacao",
                    "agricultura",
                    "familiar",
                    "lavoura",
                    "caseira",
                    "vicinai",
                    "assegurar",
                    "trafegabilidad",
                    "agregado",
                    "construco",
                    "ribeirinha",
                    "produtora",
                    "embarcaco",
                    "tipo",
                    "ubada",
                    "padronizada",
                    "oito",
                    "tonelada",
                    "coomercializacao",
                    "mercado",
                    "local",
                    "adequada",
                    "comercializacao",
                    "genero",
                    "alimenticio",
                    "minimo",
                    "higienizacao",
                    "interno",
                    "externo",
                    "reativacao",
                    "aterro",
                    "sanitario",
                    "coleta",
                    "lixo",
                    "seletivo",
                    "distribuicao",
                    "caixa",
                    "cartilha",
                    "orientacao",
                    "populacao",
                    "conselho",
                    "poco",
                    "semiartesiano",
                    "predio",
                    "densa",
                    "permanencia",
                    "delegado",
                    "carreira",
                    "estabelecimento",
                    "acordo",
                    "cooperacao",
                    "judiciario",
                    "combat",
                    "violencia",
                    "droga",
                    "prostituicao",
                    "atividad",
                    "tutelar",
                    "esperanca",
                    "relacionado",
                    "protecao",
                    "situacao",
                    "risco",
                    "vitima",
                    "assegurando",
                    "tratamento",
                    "previdencia",
                    "inss",
                    "indigena",
                    "servidor",
                    "funcionamento",
                    "juridico",
                    "aposentadoria"), "####", corpus4) 


## salva em txt
lapply(corpus4, write, "hashpauinipsb16.txt", append = TRUE)

## quadro 2 composto de trechos qualitativamente selecionados a partir dos txts gerados acima